home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Visio 2000 Tooltips.xpl < prev    next >
Text File  |  2000-09-30  |  2KB  |  61 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="7"
  3. "COUNT"="2"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Visio 2000"
  5. "NAME"="Visio 2000 Tooltips"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Disable Tooltips"
  9. "TEXT 2"="Enable Tooltips"
  10. "DESCRIPTION 1"="For Visio 2000: Check 1st Box to disable showing Tooltips; Check 2nd Box to enable showing Tooltips [default] ."
  11. "AUTHOR"="Ojatex@aol.com"
  12. "CONTACTURL"="http://members.aol.com/ojatex/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com."
  15. "COMMENT 2"="Thanks to CptSiskoX for tip and settings."
  16.  
  17. sPath="HKCU\Software\Visio\Visio 2000\application\"
  18.  
  19. Sub Plugin_Initialize 
  20.  if RegPathExists(sPath)=false then
  21.   Call Disable()
  22.  else
  23.  
  24.   i=RegReadValue("HKCU\Software\Visio\Visio 2000\application\ShowTooltips")
  25.   if i="0" then SetUIElement 1,true
  26.  
  27.   i=RegReadValue("HKCU\Software\Visio\Visio 2000\application\ShowTooltips")
  28.   if i="1" or IsEmpty(i) then SetUIElement 2,true
  29.  
  30.  
  31. ' else
  32. '    Call Disable()
  33. ' end if
  34.   end if
  35. End Sub
  36.  
  37. Sub Plugin_CheckData(ElementIndex)
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  b=GetUIElement(1)
  42.  if b=true then
  43.     Call RegWriteValue("HKCU\Software\Visio\Visio 2000\application\ShowTooltips","0",2)
  44. ' else
  45. '    Call Disable()
  46.  end if
  47.  
  48.  b=GetUIElement(2)
  49.  if b=true then
  50.     Call RegWriteValue("HKCU\Software\Visio\Visio 2000\application\ShowTooltips","1",2)
  51. ' else
  52. '    Call Disable()
  53.  end if
  54.  
  55.  
  56. End Sub
  57.  
  58. Sub Plugin_Terminate 
  59. End Sub
  60.  
  61.